home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / System / CADAR / Convert / change-to-new-tonality next >
Text File  |  1998-10-22  |  743b  |  26 lines
  1. change-to-new-tonality 
  2. symbols from-tonality to-tonality
  3.  
  4.  
  5. It is a lot easier to write functions if you don't have 
  6. to think about dealing with transposed symbols like 
  7. '(a (-1 b c) d) so first you can convert
  8. symbols to chromatic symbols with convert-to-chromatic 
  9.  
  10. after processing you can convert back again with
  11. change-to-new-tonality.
  12.  
  13. (convert-to-chromatic '(a (-2 b) = (-1 c d e) b = (-1 f d a) (-2 b)) '(blues1 c 5))
  14. ->(a b = egh d = jga b)
  15.  
  16. (this is just an example since symbol-transpose works fine
  17. with transposed notes)
  18.  
  19. (symbol-transpose 1 '(a b = egh d = jga b))
  20. ->(b c = fhi e = khb c) 
  21.  
  22. (change-to-new-tonality '(b c = fhi e = khb c) 
  23. '(chromatic c 5) '(blues1 c 5))
  24. ->((-2 b) (-1 b) = (c e -2 f) (-1 c) = (f e -2 b) (-1 b))
  25.  
  26.